home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs06.d81
/
micro.arc
/
MICROFILE
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
33 lines
100 REM SAVE "0:MICROFILE",8
150 REM VERSION "1.07[201]"
200 REM BOOT AND MENU PROGRAM FOR "[205][201][195][210][207][198][201][204][197]"
250 POKE 53280,14:POKE53281,6
300 IF LD=1 THEN 2000
550 IF PEEK(2)=1 THEN 2000
600 PRINT CHR$(14);"[147][159][205][201][195][210][207][198][201][204][197] [196]ATABASE [211]YSTEM"
700 PRINT "[152][195]OPYRIGHT 1985 BY [194]OB [193]ITKEN"
710 PRINT "[156][211]UPPLIED BY [198][213][212][213][210][197] [195][207][206][195][197][208][212][211]"
720 PRINT "[156]7501 - 113TH. [211]TREET"
730 PRINT "[156][196]ELTA, [194].[195]., [195]ANADA. [214]4[195] 5[194]2"
740 PRINT "[156][208]HONE (604) 591-3086"
800 GOSUB 5000
1000 LD=1:LOAD "[205][198]000*",8,1
2000 PRINT CHR$(14);"[147][159][205][201][195][210][207][198][201][204][197] [196]ATABASE [211]YSTEM"
2100 PRINT "[158][205][197][206][213][146][154]"
2200 PRINT "[208]RESS F1 FOR DATA MANAGEMENT[146][154]"
2300 PRINT "[208]RESS F3 FOR DOCUMENTATION"
2400 PRINT "[208]RESS F5 FOR INTRODUCTION TO [205][201][195][210][207][198][201][204][197]"
2500 PRINT "[208]RESS F8 TO END SESSION[146][154]"
3500 GET R$:IF R$="" THEN 3500
3600 IF R$=CHR$(133) THEN N$="[205][198]001*":GOTO 6000
3700 IF R$=CHR$(134) THEN N$="[205][198]002*":GOTO 6000
3800 IF R$=CHR$(135) THEN N$="[205][198]003*":GOTO 6000
3900 IF R$=CHR$(140) THEN PRINT CHR$(142);"[147]";:END
3950 GOTO 3500
5000 PRINT "[158][204]OADING MACHINE LANGUAGE PROGRAMS"
5100 PRINT "[154][212]AKES A MOMENT"
5999 RETURN
6000 GOSUB 5000
6050 POKE 2,0
6100 LOAD N$,8,1